Este es un mapa de lugares a los que me gustaría ir
Son sitios que me parecen agradables ya sea por sus playas, sus paisajes, o su comida. Torreón es especial, pues si bien no es reconocido por nada de lo que he mencionado antes, es el lugar donde se encuentra el estadio de mi equipo favorito de futbol: Santos Laguna.
Referencia uno
Referencia dos
Referencia tres
---
title: "Vacaciones"
author: "Fernando Sóstenes Hernández"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
favicon: escudo.jpg
logo: escudo.jpg
fig_mobile: TRUE
theme: cosmo
social: menu
source_code: embed
navbar:
- {title: "Crea tu propio mapa", href: "https://rstudio.cloud/project/2897129", align: right, icon: fa-map-marker}
- {title: "INAE V, Economía UNAM", href: "http://www.economia.unam.mx/", align: right, icon: fa-school}
---
```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```
Mapa {data-icon="fa-map"}
=====================================
Row
-----------------------------------------------------------------------
### Lugares por visitar
```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "Torreón", Giro = "Santos Laguna", longitud = -103.41898, latitud = 25.54389)
lugar2 <- c(Nombre = "Mérida", Giro = "Turístico", longitud = -89.61696, latitud = 20.97537)
lugar3 <- c(Nombre = "Bacalar", Giro = "Turístico", longitud = -88.39333, latitud = 18.68109)
lugar4 <- c(Nombre = "Nayarit", Giro = "Turístico", longitud = -104.89569, latitud = 22.25056)
lugar5 <- c(Nombre = "Guadalajara", Giro = "Turístico", longitud = -103.39182, latitud = 20.66682)
lugar6 <- c(Nombre = "Puerto Vallarta", Giro = "Turístico", longitud = -105.23018, latitud = 20.617)
### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))
### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)
### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro))
### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))
### Imprimimos el mapa
mapa
```
Row
-----------------------------------------------------------------------
### Descripción del mapa
**Este es un mapa de lugares a los que me gustaría ir**
Son sitios que me parecen agradables ya sea por sus playas, sus paisajes, o su comida.
Torreón es especial, pues si bien no es reconocido por nada de lo que he mencionado antes, es el lugar donde se encuentra el estadio de mi equipo favorito de futbol: Santos Laguna.
{weight="150"}
[O hipervínculos, por ejemplo a Google](https://www.google.com.mx/)
Row
-----------------------------------------------------------------------
### Referencias
1. Referencia uno
2. Referencia dos
3. Referencia tres